From: Lars Ingebrigtsen Date: Mon, 2 May 2022 09:37:35 +0000 (+0200) Subject: Re-fix Gcc header tokenization in Gnus X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~2370^2~133 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f7a6dd4fcc54230630fcba73ca6bda2a413eff24;p=emacs.git Re-fix Gcc header tokenization in Gnus * lisp/gnus/gnus-msg.el (gnus-inews-do-gcc): Split the Gcc header on commas, but allow group names to contain spaces (bug#55217). --- diff --git a/lisp/gnus/gnus-msg.el b/lisp/gnus/gnus-msg.el index f6ae028a104..17a87134be0 100644 --- a/lisp/gnus/gnus-msg.el +++ b/lisp/gnus/gnus-msg.el @@ -1571,8 +1571,9 @@ this is a reply." (when gcc (message-remove-header "gcc") (widen) - (setq groups (message-unquote-tokens - (message-tokenize-header gcc ",\n\t"))) + (setq groups (mapcar #'string-trim + (message-unquote-tokens + (message-tokenize-header gcc)))) ;; Copy the article over to some group(s). (while (setq group (pop groups)) (setq method (gnus-inews-group-method group))